home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls085.solintel.Z / tls085.solintel / lib / vtcl / sh-env < prev    next >
Encoding:
Text File  |  1995-07-20  |  1.5 KB  |  53 lines
  1. # RCSfile: vtclsh-env $Revision: 1.2 $ $Date: 1995/05/22 11:14:57 $
  2. # Environment setup file for IXI Visual Tcl 1.0 C1 (sh/ksh version)
  3. :
  4.  
  5. # Vtcl top-level directory
  6. VTCLTOP=`dirname $VTCL_HOME`
  7. VTCLTOP=`dirname $VTCLTOP`
  8.  
  9. # Environment variable fort tcl
  10. TCL_LIBRARY=$VTCLTOP/usr/lib/tcl
  11. export TCL_LIBRARY
  12.  
  13. # Search path for Vtcl app-defaults
  14. XFILESEARCHPATH=$VTCLTOP/usr/lib/X11/app-defaults/%N:$XFILESEARCHPATH
  15. export XFILESEARCHPATH
  16.  
  17. # Set up help files 
  18. base=vtcl
  19.  
  20. # Set up the information in the user's help config files.
  21. # If the files (and parent directories) don't exist, they are created.
  22. # If the files are not writeable, we assume the administrator or user
  23. # wants to manually modify them.
  24.  
  25. if [ ! -d $HOME/.ixi ] ; then mkdir $HOME/.ixi ; fi
  26. if [ ! -d $HOME/.ixi/mos ] ; then mkdir $HOME/.ixi/mos ; fi
  27.  
  28. TEXTFILE=$HOME/.ixi/mos/books
  29. HANDLE=$base
  30. FILEPATH=$VTCL_HOME/doc/%N/%L/%T%S
  31.  
  32. if [ ! -f $TEXTFILE ]
  33. then
  34.     > $TEXTFILE
  35.     chmod u+w $TEXTFILE
  36.     if [ $trace ] ; then echo "    trace: Created $TEXTFILE" ; fi
  37. fi
  38.  
  39. if [ -w $TEXTFILE ]
  40. then
  41.         if grep "^$HANDLE[     ]" $TEXTFILE > /dev/null
  42.         then
  43.                 /bin/mv $TEXTFILE $TEXTFILE.old
  44.                 sed "s@^$HANDLE[     ].*@$HANDLE    $FILEPATH@" \
  45.                   <$TEXTFILE.old >$TEXTFILE
  46.                 /bin/rm -f $TEXTFILE.old
  47.         if [ $trace ] ; then echo "    trace: Altered $HANDLE in $TEXTFILE" ; fi
  48.         else
  49.                 echo $HANDLE    $FILEPATH >> $TEXTFILE
  50.         if [ $trace ] ; then echo "    trace: Added $HANDLE in $TEXTFILE" ; fi
  51.         fi
  52. fi
  53.